﻿
Partial Class auditoria_linea
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objDatos As New clsConsultas
        Dim strSQL As String

        If Not HttpContext.Current.User.Identity.IsAuthenticated Then
            Response.Redirect(FormsAuthentication.LoginUrl)
        End If

        strSQL = "select Articulo, Descripcion1 Descripcion, Linea from art "
        strSQL = strSQL & "where linea not in (Select linea from artLinea) and Estatus='ALTA'"

        gvLineas.EmptyDataText = "No hay resultados"
        gvLineas.DataSource = objDatos.Get_SQLQuery(strSQL)
        gvLineas.DataBind()

        strSQL = "select Articulo, Descripcion1 Descripcion, Grupo, Familia, VACAVARIEDAD Variedad, vacacalidad Calidad, Origen, Pais, vacamarca Marca, Tipoempaque, Presentacion, Linea, lin [Linea Sugerida] from ("
        strSQL = strSQL & "select ARTICULO, "
        'strSQL = strSQL & "RAMA, CATEGORIA, "
        strSQL = strSQL & "GRUPO, FAMILIA, VACAVARIEDAD, "
        strSQL = strSQL & "VACACALIDAD, VACAPROCEDENCIA ORIGEN, PAIS, VACAMARCA, TIPOEMPAQUE, PRESENTACION, "
        strSQL = strSQL & "DESCRIPCION1, DESCRIPCION2, "
        strSQL = strSQL & "LINEA, "
        strSQL = strSQL & "FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACACALIDAD+' '+VACAMARCA+' '+TIPOEMPAQUE+' DE '+PRESENTACION AS DESC1, "
        strSQL = strSQL & "FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACAPROCEDENCIA+' '+VACAMARCA+' '+TIPOEMPAQUE+' DE '+PRESENTACION AS DESC2, "
        strSQL = strSQL & "FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACAMARCA+' '+PRESENTACION AS LIN, "
        strSQL = strSQL & "case when descripcion1=FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACACALIDAD+' '+VACAMARCA+' '+TIPOEMPAQUE+' DE '+PRESENTACION then 1 else 0 end as d1, "
        strSQL = strSQL & "case when descripcion2=FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACAPROCEDENCIA+' '+VACAMARCA+' '+TIPOEMPAQUE+' DE '+PRESENTACION then 1 else 0 end as d2, "
        strSQL = strSQL & "case when linea=FAMILIA + ' ' + (CASE VACAVARIEDAD WHEN 'N/A' THEN '' ELSE VACAVARIEDAD+' ' END)+VACAMARCA+' '+PRESENTACION then 1 else 0 end as l "
        strSQL = strSQL & "from art "
        strSQL = strSQL & "where estatus='ALTA' AND rama='EMPACADOS' and linea not like '%OBSOLETOS%' "
        strSQL = strSQL & ") artt where l=0 "

        gvEmpacados.EmptyDataText = "No hay resultados"
        gvEmpacados.DataSource = objDatos.Get_SQLQuery(strSQL)
        gvEmpacados.DataBind()


        strSQL = "select Articulo, Descripcion1 Descripcion, Grupo, Familia, VACAVARIEDAD Variedad, vacacalidad Calidad, Origen, Pais, vacamarca Marca, Tipoempaque, Presentacion, Linea, lin [Linea Sugerida] from ("
        strSQL = strSQL & "select ARTICULO, "
        strSQL = strSQL & "RAMA, CATEGORIA, "
        strSQL = strSQL & "GRUPO, FAMILIA, VACAVARIEDAD, "
        strSQL = strSQL & "VACACALIDAD, VACAPROCEDENCIA ORIGEN, PAIS, VACAMARCA, TIPOEMPAQUE, PRESENTACION, "
        strSQL = strSQL & "DESCRIPCION1, DESCRIPCION2, "
        strSQL = strSQL & "LINEA, "
        strSQL = strSQL & "(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END)+(CASE WHEN PAIS IS NULL THEN '' WHEN PAIS='' THEN '' WHEN PAIS='N/A' THEN '' ELSE RTRIM(LTRIM(PAIS))+' ' END)+(CASE WHEN VACACALIDAD IS NULL THEN '' WHEN VACACALIDAD='' THEN '' WHEN VACACALIDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACACALIDAD))+' ' END)+(CASE WHEN VACAMARCA IS NULL THEN '' WHEN VACAMARCA='' THEN '' WHEN VACAMARCA='S/M' THEN '' ELSE RTRIM(LTRIM(VACAMARCA))+' ' END)+(CASE WHEN TIPOEMPAQUE IS NULL THEN '' WHEN TIPOEMPAQUE='' THEN '' WHEN TIPOEMPAQUE='N/A' THEN '' ELSE RTRIM(LTRIM(TIPOEMPAQUE))+' ' END)+(CASE WHEN PRESENTACION IS NULL THEN '' WHEN PRESENTACION='' THEN '' WHEN PRESENTACION='N/A' THEN '' ELSE (CASE WHEN CHARINDEX('KG',PRESENTACION,1)>=1 THEN PRESENTACION+' ' ELSE PRESENTACION+' KG ' END) END) AS DESC1, "
        strSQL = strSQL & "(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END)+(CASE WHEN VACAMARCA IS NULL THEN '' WHEN VACAMARCA='' THEN '' WHEN VACAMARCA='S/M' THEN '' ELSE RTRIM(LTRIM(VACAMARCA))+' ' END)+(CASE WHEN TIPOEMPAQUE IS NULL THEN '' WHEN TIPOEMPAQUE='' THEN '' WHEN TIPOEMPAQUE='N/A' THEN '' ELSE RTRIM(LTRIM(TIPOEMPAQUE))+' ' END)+(CASE WHEN PRESENTACION IS NULL THEN '' WHEN PRESENTACION='' THEN '' WHEN PRESENTACION='N/A' THEN '' ELSE (CASE WHEN CHARINDEX('KG',PRESENTACION,1)>=1 THEN PRESENTACION+' ' ELSE PRESENTACION+' KG ' END) END) AS DESC2, "
        strSQL = strSQL & "(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACACALIDAD IS NULL THEN '' WHEN VACACALIDAD='' THEN '' WHEN VACACALIDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACACALIDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END) AS LIN, "
        strSQL = strSQL & "case when descripcion1=(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END)+(CASE WHEN PAIS IS NULL THEN '' WHEN PAIS='' THEN '' WHEN PAIS='N/A' THEN '' ELSE RTRIM(LTRIM(PAIS))+' ' END)+(CASE WHEN VACACALIDAD IS NULL THEN '' WHEN VACACALIDAD='' THEN '' WHEN VACACALIDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACACALIDAD))+' ' END)+(CASE WHEN VACAMARCA IS NULL THEN '' WHEN VACAMARCA='' THEN '' WHEN VACAMARCA='S/M' THEN '' ELSE RTRIM(LTRIM(VACAMARCA))+' ' END)+(CASE WHEN TIPOEMPAQUE IS NULL THEN '' WHEN TIPOEMPAQUE='' THEN '' WHEN TIPOEMPAQUE='N/A' THEN '' ELSE RTRIM(LTRIM(TIPOEMPAQUE))+' ' END)+(CASE WHEN PRESENTACION IS NULL THEN '' WHEN PRESENTACION='' THEN '' WHEN PRESENTACION='N/A' THEN '' ELSE (CASE WHEN CHARINDEX('KG',PRESENTACION,1)>=1 THEN PRESENTACION+' ' ELSE PRESENTACION+' KG ' END) END) then 1 else 0 end as d1, "
        strSQL = strSQL & "case when descripcion2=(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END)+(CASE WHEN VACAMARCA IS NULL THEN '' WHEN VACAMARCA='' THEN '' WHEN VACAMARCA='S/M' THEN '' ELSE RTRIM(LTRIM(VACAMARCA))+' ' END)+(CASE WHEN TIPOEMPAQUE IS NULL THEN '' WHEN TIPOEMPAQUE='' THEN '' WHEN TIPOEMPAQUE='N/A' THEN '' ELSE RTRIM(LTRIM(TIPOEMPAQUE))+' ' END)+(CASE WHEN PRESENTACION IS NULL THEN '' WHEN PRESENTACION='' THEN '' WHEN PRESENTACION='N/A' THEN '' ELSE (CASE WHEN CHARINDEX('KG',PRESENTACION,1)>=1 THEN PRESENTACION+' ' ELSE PRESENTACION+' KG ' END) END) then 1 else 0 end as d2, "
        strSQL = strSQL & "case when linea=(CASE WHEN FAMILIA IS NULL THEN '' ELSE FAMILIA+' ' END)+(CASE WHEN VACAVARIEDAD IS NULL THEN '' WHEN VACAVARIEDAD='' THEN '' WHEN VACAVARIEDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACAVARIEDAD))+' ' END)+(CASE WHEN VACACALIDAD IS NULL THEN '' WHEN VACACALIDAD='' THEN '' WHEN VACACALIDAD='N/A' THEN '' ELSE RTRIM(LTRIM(VACACALIDAD))+' ' END)+(CASE WHEN VACAPROCEDENCIA IS NULL THEN '' WHEN VACAPROCEDENCIA='' THEN '' WHEN VACAPROCEDENCIA='N/A' THEN '' ELSE RTRIM(LTRIM(VACAPROCEDENCIA))+' ' END) then 1 else 0 end as l "
        strSQL = strSQL & "from art "
        strSQL = strSQL & "where (estatus='ALTA') AND (rama='MAYOREO') AND (DESCRIPCION1 NOT LIKE '%COSTAL%') "
        strSQL = strSQL & "AND (DESCRIPCION1 NOT LIKE '%BOLSA%') AND (DESCRIPCION1 NOT LIKE '%BOBINA%') AND (DESCRIPCION1 NOT LIKE '%SACO%') "
        strSQL = strSQL & "and (LINEA NOT LIKE '%OBSOLETO%') "
        strSQL = strSQL & ") artt where l=0 "

        gvMayoreo.EmptyDataText = "No hay resultados"
        gvMayoreo.DataSource = objDatos.Get_SQLQuery(strSQL)
        gvMayoreo.DataBind()

    End Sub
End Class
